home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / languages / cleo.lzh / Cleo / examples / sqrtab.cl < prev    next >
Encoding:
Text File  |  1993-01-24  |  469 b   |  28 lines
  1. Program Carres;
  2.  
  3. vAr
  4.     tab1: array [0..100] of char;
  5.     tab2: array [0..100] of integer;
  6.     tab3: array [0..100] of real;
  7.     n :integer;
  8. bEgin
  9.  
  10.     n :=0;
  11.     while n<=100 do
  12.       begin
  13.         tab1[n]:=n;
  14.         tab2[n]:=sqr(n);
  15.         tab3[n]:=sqrt(n);
  16.         n := n+1;
  17.       end;
  18.  
  19.     n :=0;
  20.     repeat
  21.         begin
  22.             writeln(tab1[n], '        ',tab2[n], '        ',tab3[n]);
  23.             n := n+1;
  24.         end;
  25.     until n>100;
  26.     writeln;
  27.  
  28. end.